﻿Public Class Agenda


    Public Event ChangementSelectionRDV(ByVal sender As Object, ByVal e As AgendaEventArgs)

    Public Sub New()
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
    End Sub


    Private Sub DgAgenda_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DgAgenda.SelectionChanged
        If DgAgenda.SelectedRows.Count > 0 Then
            RaiseEvent ChangementSelectionRDV(Me, New AgendaEventArgs(DgAgenda.SelectedRows(0).DataBoundItem, _
                                                                     DgAgenda.Rows.IndexOf(DgAgenda.SelectedRows(0)), _
                                                                     DgAgenda.DataSource.Count))
        End If

    End Sub



    'Private Sub DgAgenda_DataSourceChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DgAgenda.DataSourceChanged
    '    _initDgvEnCours = True
    'End Sub

End Class
